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PROGRAMACION 


O Introducción 


NA vez que los analis- 
tas y diseñadores tie- 
nen una idea clara 
de cómo informatizar 
una empresa, si es el 
caso, o cómo abor- 
dar una aplicación, 
se empiezan a plas- 
mar todas sus ideas en los llamados cua- 
dernos de carga. En ellos se definen los 
datos que se van a usar, cuál va a ser su 
organización, qué tipo de ficheros se uti- 
lizarán, y se especifican las característi- 
cas del equipo soporte. 

En la descripción de ficheros se indican 
los métodos de organización de cada 
uno (secuencial, indexado, etc.), y si for- 
man parte de una base de datos. Tam- 
bién se define cómo se accede a los da- 
tos que contienen de forma directa, rela- 
tiva, etc.), de acuerdo a la estructura de 
los ficheros. 


TABLA DE INDICES 


Fig. 1. Ejemplo de fichero indexado con cinco 
segmentos 


A continuación se detallan los datos 
que van a constituir la entrada a los pro- 
cesos, de los cuales se obtendrán los da- 
tos requeridos. 
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Los procesos se describirán ya en len- 
guaje informático, determinando cuáles 
son los resultados «internos», es decir, los 
que proporcionan datos para otros pro- 
gramas y no son de interés para los usua- 
rios; y cuáles van a devolver los datos 
que constituyen los ficheros de salida, 
llamados «procesos externos». En el dise- 
ño de estos últimos es donde el progra- 
mador debe poner especial atención 
para que los formatos sean comprensi- 
bles por el personal no informático. 


ENTRADAS 


SALIDAS 


[A | Fig. 2. La relación entre los datos de entrada y 


' los que se esperan obtener a la salida debe que- 
dar bien especificada en el diseño de aplicaciones. 


Otro punto a desarrollar es el referente 
a diseño de impresos y formatos de pan- 
talla. Los primeros están orientados al 
usuario final, mientras que los otros son 


utilizados por los operadores de consola. 

En el diseño de formatos se debe indi- 
car claramente los campos que existen, 
su tipo, atributos, etc. Hay campos en los 
que el operador no debe introducir nin- 
gún dato (campos de salida) y otros que 
sí deben ser rellenados para procesarlos 
posteriormente (campos de entrada). 

También hay que prever los posibles 
errores que se puedan producir a la hora 
de la introducción de datos, por lo que 
es necesario realizar validaciones a fin 
de evitar que se produzcan casos como 
el intentar rellenar campos numéricos 
con caracteres alfabéticos, o manipular 
datos o informaciones de importancia 
que hagan variar los datos de salida o in- 
cluso los procesos. 


Fig. 3. Cualquier programa general puede des- 
componerse en un conjunto de problemas mi- 
nimo. 


O Programación modular 


El objetivo de la programación modu- 
lar es dividir un programa global en una 
serie de módulos más sencillos, de forma 
que cada uno de ellos realice una tarea 
única e independiente. 

Esta forma de programar proporciona a 
los programas dos características muy 
importantes: flexibilidad y transportabili- 
dad. 

Flexibilidad a la hora de introducir mo- 
dificaciones en una aplicación, ya que 
la localización de cada módulo es mu- 
cho más rápida, y la transformación en 
ello no tiene gran incidencia en el pro- 
grama global. 


C 
> un 


Ú Fig. 4. Proceso de modularización. 


Teniendo la gran evolución que se está 
produciendo actualmente en los equi- 
pos informáticos, y el constante cambio 
en los requerimientos por parte de los 
usuarios al sistema, la programación de 
la programación modular es importante 
al evitar realizar profundos cambios en la 
estructura de los programas, y mucho 
menos en los datos intermedios. 


seguir para ejecutar sumatorio: 
n 
Y = 2, ¡ 
l= 


Este programa podría constituir un modelo de un progra- 
ma mayor de cálculo, por ejemplo. 


lA Fig. 5. Organigrama que representa el proceso a 
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La gran ventaja de la programación 
modular es que al subdividir un problema 
en varias tareas más pequeñas y senci- 
llas, es más fácil de escribir, leer y man- 
tener. Cada una de estas tareas consti- 
tuye un módulo fácilmente identificable. 

Cada módulo tiene estructura propia, 
pero a su vez es perfectamente encaja- 
ble en una estructura de nivel superior, 
de forma que no sólo dan significado a 
un programa, sino que tambien lo tienen 
por sí mismos. 


De esta característica se deduce su 
transportabilidad. Los programas dividi- 
dos en módulos son perfectamente en- 
cajables en entornos en los que no han 
sido diseñados, tanto físicos (ordenado- 
res diferentes) como lógicos (programas 
de los cuales no formaban parte inicial- 
mente). 

El que estas características puedan 
darse implica la utilización de un hard- 
ware y un software adecuados. 

En cuanto al hardware, se requiere la 
existencia de soportes de acceso direc- 
to, y controladores independientes del 
ordenador central. 

La parte del software que más respon- 
sabilidad tiene en este caso es la relati- 
va al sistema operativo, montadores, reu- 
bicadores, etc. 

Hay que tener en cuenta que no se 
puede programar de esta forma con 
cualquier lenguaje, es necesario utilizar 
un lenguaje de programación estructura- 
do que facilite la implantación de módu- 
los y la interacción entre ellos. 


O Programación estructurada 


Con la programación modular se hace 
más referencia al software que al hard- 
ware, mientras que la programación es- 
tructurada es una técnica que sirve de 
soporte a programas que han sido dise- 
ñados en forma modular. No hay que 
pensar, pues, que son dos tipos de pro- 
gramación diferentes, ya que no es con- 
cebible utilizar una sin la otra. 

Como ya hemos visto, hay que intentar 
que todo programa sea flexible para que 
pueda adaptarse a cambios, y transpor- 
table para que cualquier nuevo proceso 
pueda utilizar sus rutinas sin introducir 
grandes cambios. Para ello se requiere 


que los programas sean modulares, lo 
que obliga a utilizar un software de base 
apropiado, ya que el grado de modula- 
ridad depende del intérprete empleado. 
Cuanto menores sean los módulos obte- 
nidos, mayor será la transportabilidad 
del programa. 

En un programa estructurado se utilizan 
tres tipos de estructuras: lineal, de bifur- 
cación y repetitivas. 


7 Fig. ó. Estructura alternativa, provoca la bifurca- 
ción a la realización de una de las acciones de- 
pendiendo de la condición. 


La estructura lineal es la que siguen las 
secuencias de instrucciones dentro de 
un programa. 


[A Fig. 7. Estructura repetitiva. 


Una bifurcación se produce cuando 
existen varias acciones a realizar, de- 
pendiendo de que se cumplan o no cier- 
tas condiciones. 


Una sentencia de repetición es aque- 


lla que ejecuta un conjunto de instruccio- 
nes repetidamente hasta que se cumple 
cierta condición. 


En resumen, en la programación estruc- 
turada se comieñza por «modular» el pro- 
grama total, y cada uno de los módulos 
se diseña utilizando los tres tipos de es- 
tructuras señaladas anteriormente. 

Cuando un bloque de instrucciones se 
maneja como si fuera una única instruc- 
ción, se habla de procedimientos. 


a misttupclo: 
nes 


ORMALMENTE el Z-80 
estará ejecutando un 
determinado progra- 
ma; mientras tanto ¡ig- 
nora cualquiera cosa 
que no sea este pro- 
grama. Por ello, si 
queremos que deje 
el programa que está ejecutando en ese 
instante debemos darle una señal, o in- 
terrupción, que le indique que debe de- 
jar lo que está haciendo para pasar a 
ocuparse de una nueva tarea. 

Este proceso es similar al que ocurre 
cuando estamos leyendo un libro y nos 
llaman por teléfono. Dejamos lo que es- 
tábamos haciendo, leer un libro, marca- 
mos con una señal el libro y procedemos 
a atender la interrupción, coger el telé- 
fono. Una vez finalizada la llamada con- 
tinuaremos la lectura del libro en donde 
lo dejamos indicado. 

El proceso por el que el Z-80 atiende 
una interrupción es muy parecido. Prime- 
ramente guarda la dirección de la ins- 
trucción que estaba ejecutando en el 
momento de producirse la interrupción, 
de forma similar a como cuando se pro- 
duce una llamada a una subrutina; eje- 
cuta la rutina de atención a la interrup- 
ción y regresa a continuar la ejecución 
donde lo dejó. 


REGRESA 
DE INTERRUPCION 


Fig. 1. Ejemplo de interrupción. 
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Normalmente la función de una in- 
terrupción es llevar a cabo una opera- 
ción de entrada-salida. Un dispositivo 
como, por ejemplo, un teclado, que des- 
conoce cuándo puede llegar un dato, in- 
terumpe al procesador para darle el 
dato recién llegado. Después de esto el 
procesador continúa su ejecución como 
si esta operación no se hubiese llevado 
a cabo. 


Interrupciones 
no enmascarables 


Este tipo de interrupción no puede inhi- 
birse. Por ello se reserva para periféricos, 
o funciones muy importantes, y que no 
atenderla pueda ocasionar un fallo im- 
portante del sistema. 

Cuando se ejecuta dicha interrupción 
del sistema salta a las instrucciones situa- 
das a partir de la posición $66 (el símbo- 
lo $ indica que el número que viene de- 
trás está en notación hexadecimal). 

Para retomar de la ejecución de una in- 
terrupción de este tipo se debe regresar 
con la instrucción RETN. 

Existe también la posibilidad de ejecu- 
tar una interrupción no enmascarable 
desde programa. Esto suele tener utili- 
dad para llamar a ciertas rutinas de la 
ROM, tal como se realiza el sistema ope- 
rativo CP/M, o en el caso de que se hu- 
biese producido un desastre, reinicializar 
el sistema. Esta es la instrucción: 


RST N 


donde n es alguna de las siguientes di- 
recciones: $00, $08, $10, $20, $30, $38. 


'O a interrupciones 
enmascarables 


Puesto que la ejecución de una in- 
terrupción puede verse interrumpida por 


Indicadores Códigos 
Pan Operación N.* de N.* de N.? de 
simbólica S12 H P/V NC 76 543 240 Hex bytes ciclos M estadosT tarios 
Dr lFF-— 0 <A COR . . 11 110 011 F3 1 1 4 
El IFF — 1 a EX . . 11111 011 FB 1 1 4 
IMO Selecciona modo 0 para lasin- +. +.  X CR . . 11 101 101 ED 2 2 8 
terrupciones 01 000 110 46 
IM 1 Selecciona modo 1 para lasin- +. +.  X IE . . 11 101 101 ED 2 2 8 
terrupciones 01010 110 56 
IM 2 Selecciona modo 2 para lasin- +. +.  X . X . + 11101101 ED 2 2 8 
terrupciones 01011 110 5€ 
RETI Retorno de una interrupción e o . o 11 101 101 ED 2 4 14 
01001 101 4D 
RETN Retorno de una interrupción no + +. X +. X e. +. 11101 101ED 2 4 14 
enmascarable 01 000 101 45 
RSTp (SP - 1 PC A . X . A O 0 1 3 1 Lp 
(SP -2 —PC, 000 004 
PC, 0 001 08H 
PC, 010 10H 
011 18H 
100 20H 
101 28H 
110 30H 
111 38H 


Notas: (1) RETN carga IFF, — 1FF. 


INTERRUPCION 


CONTINUA 
EJECUCION 


REGRESA 
DE INTERRUPCION 


l A | Fig. 3. Modo 0 de interrupción. 


otra interrupción, es necesario prevenir 
algún medio para que en ciertos casos 
las interrupciones puedan ser inhibidas. 

Esto se ve claro en el caso de estar es- 
cribiendo un dato en una unidad de dis- 
co, en el que el sincronismo es funda- 
mental y el teclado pide una interrup- 
ción. En este caso se ejecutaría la rutina 
de atención al teclado, ignorando a la 
unidad de disco, siendo esto fatal, ya 
que al regresar a la rutina de atención al 
disco ya no escribiría sobre la pista de- 
seada, sino sobre otra. Por esto se indicó 
que la interrupción no enmascarable 
sólo se usa para los casos muy importan- 
tes. 

Para el control del permiso de inhibir 
las instrucciones no enmascarables exis- 
ten dos instrucciones: 


RUTINA 
DE 
INTERRUPCIÓN 


-— El: permite interrupciones enmasca- 
rables. 

— DI: no permite interrupciones en- 
mascarables. 


Dentro de este tipo de instrucciones se 
pueden programar para que funcionen 
en 3 modos diferentes: 


Modo 0: 

En este caso no pasa a ejecutarse nin- 
gún programa situado en la memoria 
principal, sino que es el dispositivo que 
ha ocasionado la interrupción el que in- 
dicará el código de la siguiente instruc- 
ción a ejecutar, pudiendo ser cualquiera 
de las disponibles, pero suele ser una ins- 
trucción del tipo CALL. 

Para activar este modo debe ejecutar- 
se anteriormente la instrucción: IMO. 
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INTERRUPCION 


REGRESA 
DE INTERRUPCION 


Fig. 4. Modo 1 de interrupciones 


Modo 4: 

Al recibirse ejecutará las instrucciones 
situadas a partir de la posición $38. Es 
análoga al funcionamiento de la in- 
terrupción no enmascarable, pero ejecu- 
tándose a partir de la posición $38 en vez 
de la $66. 


Se activa ejecutando IM1. 


Modo 2: 

Este modo permite ejecutar una instruc- 
ción CALL con direccionamiento indirec- 
to a cualquier posición de memoria con 
un sólo byte suministrado por el periféri- 
co que ocasiona la interrupción. 

Para ello suele ser habitual mantener 
una tabla de direcciones de 16 bits de 
atención a las diferentes interrupciones. 

Al ejecutarse la instrucción el argumen- 
to del salto indirecto se proporciona los 
8 bits más significativos por el contenido 
del registro |, que deberá ser cargado 
anteriormente con el valor deseado. Los 
otros 8 bits, los menos significativos, se- 
rán proporcionados por el periférico. (En 
realidad, son 7 bits, ya que el bit menos 
significativo siempre es cero, al situarse 
las tablas a partir de posiciones pares de 
memoria.) 

Se activa con IM2. 

Para regresar de todas estas interrup- 
ciones se deberá ejecutar la instrucción 
de retorno RETI. 


CALL AO 10 


INTERRUPCION 


REGRESA 


DE INTERRUPCION 


Fig. 5. Modo 2 de interrupción. 


O Programa: 
Ataque 
marino para IBM 


L juego de los barqui- 
tos es uno de los más 
famosos del mundo y 
muchos estudiantes 
se entrenan con bas- 
tante frecuencia en 
horas de clase. El pro- 
grama que vamos a 
ver a continuación nos permitirá jugar a 
los barquitos, pero de una nueva forma. 


DISP, REPETIDOS 
BARCOS HUNDIDOS 


"7 vuzm 


Se esta situando la 
ota 
Pulsa 'R pare utilizar el RADAR, 


El ordenador colocando la flota. 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


En este juego el usuario juega contra el 
ordenador, pero el ordenador no juega 
contra el usuario. Al principio del juego 
se ha de decir cuántos barcos va a ha- 
ber en el cuadrante y cuántos disparos 
podemos hacer. El juego consiste en des- 
truir toda la flota que coloque el ordena- 
dor con el mínimo número de disparos. 


:M TOT BARCOS E 
UN TOT. DI:P 300 
DISF, HECHOS 96 
DISP, REPETIDO 

DARCOS HUNDIDOS 1 


delimita la 
20NA del RADAR 
CON CUPSONES 
Fiya BARRA ESP 


| A | El juego en plena ejecución. 


_Como acertar a un barco no es tarea 
facil, nuestro computador dispone de RA- 
DAR que nos indicará cuántos impactos 
hay en una zona que nosotros mismos de- 
limitaremos. 


PROGRAMAS 


1000 REM aaa SS ISSO SSI JSISISIOIOIOIOISIOISISIRIl ETS OJOIOROIOIOJOK 


1010 REM x*x k 
1020 REM x* AABA TTTTT AAAA Q000Q U U EEEEEE k 
1030 REM *R A A T A AQ QU UE k 
1040 REM x A A sy A AQ QU UE k 
1050 REM * Á A T A AQ QU U EEEE k 
1060 REM * AAAAAA T AAAAAA Q QQU UE *k 
1070 REM * A A T A AQ QQU UE k 
1080 REM * A A T A A QQ  UUUU  EEEEEE * 
1090 REM *R *k 
1100 REM x* E 
1110 REM x*x M M AAAA RRRRR III N N 0000 k 
1120 REM * MM MMA AR R I NN NO (0) k 
1130 REM x MMMMA AR ed. NN NO 0 *k 
1140 REM *x M MA A RRRRR I NNNNO o) k 
1150 REM x*x M M AAAAAMA R R IN NNO O k 
1160 REM x M MA AR R I N NN O 19) *k 
1170 REM x M MA AR A Y A N 0000 k 
1180 REM * k 
1190 REM A+oSSda SONES ISSO” SES S El] Sl?” OOOO KK 
1200 REM 


1210 REM A+MMSSS SS EOS lSSS SISMOS JJOO KK 
1220 REM * (c) Ed. Siglo Cultural x*x 


1230 REM * (c) 1987. k 
1240 REM salia lalO IO IOIOOOlOOlojojok 
1250 REM 


1260 REM dde lS SO OSO lOlSlOlOKOK 

1270 REM * INICIALIZACION * 

1280 REM dedRSSiSlESl”ES MSI lOIEIOKOK 

1290 REM 

1300 KEY OFF 

1310 CLS 

1320 DIM PTO(100, 100) 

1330 DIM LGB(100) 

1340 LOCATE 10,7 

1350 PRINT"Dime la cantidad de barcos que componen la flota (5 - 20)" 
IGO” PRINTSPRINT "===> "s 

1370 INPUT B$ 

1380 IF VAL(B$)>20 OR VAL(B$)<5 OR VAL(B$)<>INT(VAL(B$)) THEN 1460 
1390 FOR I=1 TO LEN (B$) 

1400 LET C$=MID$(B$, 1,1) 

1410 IF C$<"0" OR C$>"9" THEN LET I=LEN(B$):GOTO 1460 
1420 NEXT I 

1430 LET NB=VYAL(B$) 

1440 CLS 

1450 GOTO 1500 

1460 BEEP 

1470 LOCATE 12,41 

1480 PRINT SPACE$(LEN(B$)) 

1490 GOTO 1340 

1500 LOCATE 10,7 

1510 PRINT"Dime la cantidad de disparos que tendr s (50 - 300)" 
LSZO PRINTSPRINT "===> "; 

1530 INPUT B$ 

1540 IF VAL(B$)>300 OR VAL(B$)<50 OR VAL(B$)<>INT(VAL(B$)) THEN GOTO 1620 
1550 FOR I=1 TO LEN (B$) 

1560 LET C$-MID$(B$, 1,1) 

1570 IF C$>"9" OR C$<"0" THEN LET I=LEN(B$):GOTO 1620 
1580 NEXT I 

1590 LET NUMDISP=VAL (B$) 

1600 CLS 

1610 GOTO 1670 

1620 BEEP 

1630 LOCATE 12,41 

1640 PRINT SPACES(LEN(B$)) 

1650 GOTO 1500 

1660 REM 


1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2230 
2290 
2300 
2310 
2320 
2330 


REM 39 SIS jS ESOS SIS lEE SAS jS”” OS lS”O E l”lSlO OOOO 
REM ooo CREACION PANTALLA DE JUEGO AO 
REM MOSSOS SOS lSS JESSE ld j”ld lO jaE lO lSlSlOlldlOlOloJOjOK 
REM 
LOCATE 24,25 
PRINT "Pulsa *R” para utilizar el RADAR. "; 
GOSUB 3170 
REM 
IN 
REM ooo UBICACION DE LA FLOTA ARK 
INE EAS 
REM 
LOCATE 22,25 
PRINT"Se esta situando la” 
LOCATE 23,30 
PRINT"Flota" 
FOR CB=5 TO NB+4 
GOSUB 2330 
NEXT 
LOCATE 22,25 
PRINT SPACES (19) 
LOCATE 23,30 
PRINT SPACE$ (5) 
LOCATE 22,30 
PRINT"(Listo?" 
LOCATE 23,30 
PRINT"Pulsa una tecla" 
LET A$=INKEY$ 
IF A$="" THEN GOTO 1940 
LOCATE 22,30 
PRINT SPACE$ (10) 
LOCATE 23,23 
PRINT SPACE$ (30) 
LOCATE 23,28 
PRINT"(" 
LOCATE 23,33 
PRINT"; >" 
LOCATE 23,38 
PRINT")" 
REM 
IN IS 
REM ooo FASE DE DISPARO AGO OK 
REM ds S SOS SS lSS SOI” ljololOK: 
REM 
GOSUB 4340 
REM 


AN EEES 


REM xxxxxx MENSAJE FINAL. PERDIO EL JUGADOR 


IAN A EEES 


REM 

LOCATE 22,1 
PRINT SPACE$(80) 
LOCATE 23,1 
PRINT SPACE$(80) 
LOCATE 22,10 


PRINT"Perdiste. Te quedaron ";NB-BUN;" barcos sin hundir" 


GOTO 2320 

LOCATE 22,1 

PRINT SPACE$(80) 
LOCATE' 23,1 

PRINT SPACE$(80) 
LOCATE 22,25 
PRINT"FELICIDADES” 
LOCATE 23,22 
PRINT"Hundiste la Flota" 
END 

LET ERD1=0 
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2340 LET ERD2=0 

2350 LET ERD3=0 

2360 LET ERD4=0 

2370 LET CLB=0 

2380 RANDOMIZE TIMER 

2390 LET X=INT(RNDx*12)+4 

2400 LET Y=INT(RNDx*46) +8 

2410 LET LGB=INT(RNDx*4)+3 

2420 LET DC=INT (RNDx*3)+1 

2430 IF (ERD1=1 AND ERD2=1 AND ERD3=1) OR (ERD4=1 AND ERD3=1 AND ERD2=1)THEN GOT 
O 2330 

"2440 ON DC GOTO 2450, 2630, 2810, 2990 

2450 IF ERD1=1 THEN GOTO 2420 

2460 FOR N=X' TO X-2 STEP -1 

2470 IF PTO (N,Y)>0 THEN LET ERD1=1:GOTO 2420 
2480 NEXT N 

2490 FOR N=X O X-LGB+1 STEP -1 

2500 IF PTO(N,Y)>0 THEN LET LGB=CLB:GOTO 2580 
2510 LET CLB=CLB+1 

2520 LET PTO(N, Y)=CB 

2530 LET PTO(N, Y-1)=4 

2540 LET PTO(N, Y+1)=4 

2550 LET PTO(N-1,Y-1)=4 

2560 LET PTO(N-1,Y+1)=4 

2570 NEXT N 

2580 LET PTO(X+1,Y-1)=4 

2590 LET PTO(X+1,Y)=4 

2600 LET PTO(X+1,Y+1)=4 

2610 LET PTO(X-LGB, Y)=4 

2620 GOTO 3160 

2630 IF ERD2=1 THEN GOTO 2420 

2640 FOR N=Y TO Y-2 STEP -1 

2650 IF PTO(X,N)>0 THEN LET ERD2=1:GOTO 2420 
2660 NEXT N 

2670 FOR N=Y TO Y-LGB+1 STEP -1 

2680 IF PTO (X,N)>0 THEN LET LGB=CLB:GOTO 2760 
2690 LET CLB=CLB+1 

2700 LET PTO(X,N)=CB 

2710 LET PTO(X-1,N)=4 

2720 LET PTO(X+1,N)=4 

2730 LET PTO(X-1,N-1)=4 

2740 LET PTO(X+1,N-1)=4 

2750 NEXT N 

2760 LET PTO(X-1,Y+1)=4 

2770 LET PTO(X, Y+1)=4 

2780 LET PTO(X+1,Y+1)=4 

2790 LET PTO(X, Y-LGB)=4 

2800 GOTO 3180 

2810 IF ERD3=1 THEN GOTO 2420 

2820 FOR N=X TO X+2 

2830 IF PTO(N,Y)>0 THEN LET ERD3=1:GOTO 2420 
2840 NEXT N : 

2850 FOR N=X TO X+LGB-1 

2860 IF PTO(N,Y)>0' THEN LET LGB=CLB:GOTO 2940 
2870 LET CLB=CLB+1 

2880 LET PTO(N, Y)=CB 

2890 LET PTO(N, Y-1)=4 

2900 LET PTO(N, Y+1)=4 

2910 LET PTO(N+1,Y-1)=4 

2920 LET PTO(N+1,Y+1)=4 

2930 NEXT N 

2940 LET PTO(X-1,Y-1)=4 

2950 LET PTO(X-1,Y)=4 

2960 LET PTO(X-1,Y+1)=4 

2970 LET PTO(X+LGB, Y)=4 

2980 GOTO 3160 

2990 IF ERD4=1 THEN GOTO 2420 


3000 FOR N=Y TO Y+2 

3010 IF PTO(X,N)>0 THEN LET ERD4=1:GOTÚ3 2420 
3020 NEXT N 

3030 FOR N=Y TO Y+LGB-1 
3040 IF PTO(X,N)>0 THEN LET LGB=CLB:GOTO 3120 
3050 LET CLB=CLB+1 
3060 LET PTO(X,N)=CB 
3070 LET PTO(X-1,N)=4 
3080 LET PTO(X+1,N)=4 
3090 LET PTO(X-1,N+1)=4 
3100 LET PTO(X+1,N+1)=4 
3110 NEXT N 

3120 LET PTO(X-1,Y-1)=4 
3130 LET PTO(X, Y-1)=4 
3140 LET PTO(X+1,Y-1)=4 
3150 LET PTO(X, Y+LGB)=4 
3160 RETURN 

3170 LET YD1=6 

3180 LET YD2=58 

3190 LET Z=205 

3200 LET XD1=1 

3210 GOSUB 4130 

3220 LET XD1=19 

3230 GOSUB 4130 

3240 LET YD1=86 

3250 LET YD2=75 

3260 LET XD1=13 

3270 GOSUB 4130 

3280 LET XD1=16 

3290 GOSUB 4130 

3300 LET.YD1=61 

3310 LET YD2=79 

3320 LET XD1=12 

3330 LET Z=196 

3340 GOSUB 4130 

3350 LET XD1=17 

3360 GOSUB 4130 

3370 LET XD1=2 

3380 LET XD2=18 

3390 LET Z=186 

3400 LET YD1=5 

3410 GOSUB 4180 

3420 LET YD1=57 

3430 GOSUB 4180 

3440 LET YD1=80 

3450 LET XD2=22 

3460 LET XD1=1 

3470 GOSUB 4180 

3480 LET XD1=14 

3490 LET XD2=15 

3500 LET YD1=65 

3510 GOSUB 4180 

3520 LET YD1=76 

3530 GOSUB 4180 

3540 LET XD1=1 

3550 LET YD1=5 

3560 LET YD2=57 

3570 LET XD2=19 

3580 GOSUB 4230 

3590 LET XD1=13 

3600 LET YD1=65 

3610 LET YD2=76 

3620 LET XD2=16 

3630 GOSUB 4230 

3640 LOCATE 2,61 

3650 PRINT "NUM TOT BARCOS" 
3660 LOCATE 2,77 
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3670 PRINT NB 

3680 LOCATE 4,61 

3690 PRINT "NUM TOT. DISP." 
3700 LOCATE 4,76 

3710 PRINT NUMDISP 

: 3720 LOCATE 5,62 

3730 PRINT"DISP. HECHOS" 
3740 LOCATE 8,62 

3750 PRINT"DISP. REPETIDOS” 
3760 LOCATE 10, 62 

3770 PRINT"BARCOS HUNDIDOS" 
3780 LET H=6 

3790 LET J=56 

3800 LET K=1 

3810 GOSUB 4050 

3820 LET K=19 

3830 GOSUB 4050 

3840 LET H=2 

3850 LET J=18 

3860 LET K=5 

3870 GOSUB 4090 

3880 LET K=57 

3890 GOSUB 4090 

3900 FOR C=2 TO 18 STEP 2 
3910 LET CNF=CNF+1 
3920 LOCATE C,3 

3930 PRINT CNF 

3940 LOCATE C,5 
3950 PRINT CHR$(182) 
3960 NEXT C ' 

3970 FOR C=9 TO 53 STEP 4 
3980 LET CNC=CNC+1 
3990 LOCATE 20,C 
4000 PRINT CNC 

4010 LOCATE 19,C 
4020 PRINT CHR$(209) 
4030 NEXT C 

4040 RETURN 

4050 FOR F=H TO J 

4060 LET PTO(K,F)=4 
4070 NEXT F 

4080 RETURN 

4090 FOR F=H TO J 

4100 LET PTO(F,K)=4 
4110 NEXT F 

4120 RETURN 

4130 FOR C=YD1 TO YD2 
4140 LOCATE XD1,C 
4150 PRINT CHR$(Z) 
4160 NEXT C 

4170 RETURN 

4180 FOR C=XD1 TO XD2 
4190 LOCATE C, YD1 
4200 PRINT CHR$(Z) 
4210 NEXT C 

4220 RETURN 

4230 LOCATE XD1,YD1 
4240 PRINT CHR$(201) 
4250 LOCATE XD1, YD2 
4260 PRINT CHR$(187) 
4270 LOCATE XD2,YD1 
4280 PRINT CHR$(200) 
4290 LOCATE XD2,YD2 
4300 PRINT CHR$(188) 
4310 RETURN 

4320 REM 


4330 REM MSIE ASS lJSS ISSO SIIOROOK 
4340 REM xoxkxkxkxxk — FASE DE DISPARO  aMOOOOIOOK 
4350 REM saSoS IMSS lll SIRIO 
4360 REM 

4370 LET CX=10 

4380 LET CY=31 

4390 FOR DISP=1 TO NUMDISP 

4400 LOCATE CX, CY 

4410 COLOR 18 

4420 PRINT CHR$(15) 

4430 COLOR 2 : 

4440 AS=INKEYS$: IF A$="" THEN 4440 

4450 IF A$="8"” THEN GOTO 4530 

4460 IF A$="4" THEN GOTO 4650 

4470 IF A$="2" THEN GOTO 4770 

4480 IF A$="6" THEN GOTO 4890 

4490 IF ASC(A$)=32 THEN GOTO 5000 


4500 IF A$="R" OR A$="r" THEN GOTO. 5620 
4510 BEEP 


4520 GOTO 4440 

4530 LET CX=CX-1 

4540 IF CX<2 THEN LET CX=CX+1:BEEP:GOTO 4610 
4550 IF PTO(CX+1,CY)=1 THEN LET Z=42:GOTO 4590 
4560 IF PTO(CX+1,CY)=2 THEN LET Z=1:GOTO 4590 


4570 IF PTO(CX+1,CY)=3 THEN LET Z=2:GOTO 4590 
4580 LET Z=32 


4590 LOCATE CX+1,CY 

4600 PRINT CHR$(Z) 

4610 LOCATE CX, CY 

4620 COLOR 18 

4630 PRINT CHR$(15) 

4640 GOTO 4980 

4650 LET CY=CY-1 

4660 IF CY<6 THEN LET CY=CY+1:BEEP:GOTO 4730 

4670 IF PTO(CX,CY+1)=1 THEN LET Z=42:GOTO 4710 

4680 IF PTO(CX,CY+1)=2 THEN LET Z=1:GOTO 4710 

4690 IF PTO(CX,CY+1)=3 THEN LET Z=2:GOTO 4710 

4700 LET Z=32 

4710 LOCATE CX,CY+1 

4720 PRINT CHR$ (Z) 

4730 LOCATE CX, CY 

4740 COLOR 18 

4750 PRINT CHR$ (15) 

4760 GOTO 4980 

4770 LET CX=CX+1: IF CX>18 THEN CX=CX-1:BEEP:GOTO 4850 
4780 IF CX>18 THEN CX=CX-1:BEEP:GOTO 4850 

4790 IF PTO(CX-1,CY)=1 THEN LET Z=42:GOTO 4830 

4800 IF PTO(CX-1,CY)=2 THEN LET Z=1:GOTO 4830 

4810 IF PTO(CX-1,CY)=3 THEN LET Z=2:GOTO 4830 

4820 LET Z=32 a 
4830 LOCATE CX-1,CY 

4840 PRINT CHR$ (Z) 

4850 LOCATE "CX, CY 

4860 COLOR 18 

4870 PRINT CHR$(15) 

4880 GOTO 4980 

4890 LET CY=CY+1:IF CY>56 THEN CY=CY-1:BEEP:GOTO 4970 
4900 IF CY>56 THEN LET CY=CY-1:BEEP:GOTO 4970 

4910 IF PTO(CX,CY-1)=1 THEN LET Z=42:GOTO 4960 

4920 IF PTO(CX,CY-1)=2 THEN LET Z=1:GOTO 4960 

4930 IF PTO(CX,CY-1)=3 THEN LET Z=2:GOTO 4960 

4940 IF PTO (CX,CY-1)>24 THEN LET Z=186:GOTO 4960 
4950 LET Z=32 

4960 LOCATE CX,CY-1:PRINT CHR$ (Z) 

4970 LOCATE CX,CY:COLOR 18:PRINT CHR$(15) 
4980 LOCATE 23,29:COLOR 2:PRINT CX-1:LOCATE 23,34:PRINT CY-5:GOTO 4440 
4990 REM 

5000 REM ooo APRIETA GATILLO AGO Ok: 
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5010 REM. 

5020  LOCATE 14,66 

5030  PRINT SPACES (10) 

5040 LOCATE 15,66 

5050 PRINT SPACES (10) 

5060 IF PTO(CX,CY)=0 THEN LET PTO(CX,CY)=1:LOCATE CX,CY:PRINT CHR$(42): LOCATE 
15,69: PRINT"AGUA":GOTO 5400 

5070 IF PTO(CX,CY)=1 THEN LOCATE 14,67:PRINT"REPETIDO":LOCATE 15,69:PRINT"AGU 

A":LOCATE CX,CY:PRINT CHR$(42):LET CTR=CTR+1:GOTO 5400 

5080 IF PTO(CX,CY)=2 THEN LOCATE 14,67:PRINT"REPETIDO":LOCATE 15,68:PRINT"TOC 

ADO":LOCATE CX,CY:PRINT CHR$(1):LET CTR=CTR+1:GOTO 5400 

5090 IF PTO (CX,CY)=3 THEN LOCATE 14,67:PRINT"REPETIDO":LOCATE 15,67:PRINT"HU 

NDIDO":LOCATE CX,CY:PRINT CHR$ (2):LET CTR=CTR+1:GOTO 5400 

5100 IF PTO(CX,CY)=4 THEN LET PTO(CX,CY)=1:LOCATE CX,CY:PRINT CHR$(42):LOCATE 
15,69: PRINT"AGUA":GOTO 5400 

5110  LET PTO(CX,CY)=2 

5120  LOCATE CX,CY 

5130 PRINT CHR$(1) 

5140 FOR I=1 TO 7 


5150 IF PTO(CX-I,CY)=4 OR PTO(CX-I,CY)=1 THEN GOTO 5190 
5160 IF PTO(CX-I,CY)=2 THEN GOTO 5180 
5170 GOTO 5380 


5180 NEXT I 
5190 FOR I=1 70 7 


5200 IF PTO (CX,CY-I)=4 OR PTO(CX,CY-I)=1 THEN GOTO 5240 
5210 IF PTO(CX,CY-I)=2 THEN GOTO 5230 
5220 GOTO 5380 


5230 NEXT 1 
5240 FOR I=1 TO 7“ 


5250 IF PTO(CX+I,CY)=4 OR PTO(CX+I,CY)=1 THEN GOTO 5290 
5260 IF PTO(CX+I,CY)=2 THEN GOTO 5280 
5270 GOTO 5380 


5280 NEXT I 
5290 FOR I=1 TO 7? 


5300 : IF PTO (CX,CY+I)=4 OR PTO (CX,CY+I)=1 THEN GOTO 5340 
5310 IF PTO (CX,CY+I)=2 THEN GOTO 5330 
5320 GOTO 5380 


5330 NEXT 1 

5340 LOCATE 14,67 

5350 PRINT"HUNDIDO" 

5360 LET BUN=BUN+1 

5370 GOTO 5460 

5380 LOCATE 14,68 

5390  PRINT"TOCADO" 

5400 LOCATE 6,76:PRINT DISP 

5410 LOCATE 8,76:PRINT CTR 

5420 LOCATE 10,77:PRINT BUN 

5430 IF BUN=NB THEN GOTO 2240 

5440 NEXT DISP 

5450 RETURN 

5460 LOCATE CX, CY 

5470 PRINT CHR$(2) 

5480 LET PTO (CX,CY)=3. 

5490 FOR I=1 TO 6-7 

5500 IF PTO(CX-1,CY)=2 THEN LET PTO(CX-I,CY)=3:LOCATE CX-1,CY:PRINT CHR$(2) E 
LSE GOTO 5520 

5510 NEXT 1 

5520 FOR I=1 TO 6 

5530 IF PTO(CX,CY-I)=2 THEN LET PTO(CX,CY-1)=3:LOCATE CX,CY-I:PRINT CHR$(2) E 
LSE GOTO 5550 

5540 NEXT 1 

5550 FOR I=1 TO 6 

5560 IF PTO(CX+I,CY)=2 THEN LET PTO(CX+I,CY)=3:LOCATE CX+I,CY:PRINT CHR$(2) E 
LSE GOTO 5580 

5570 NEXT 1 

5580 FOR I=1 TO 6 

55890 IF PTO(CX,CY+I)=2 THEN LET PTO(CX,CY+I)=3:LOCATE CX,CY+I:PRINT CHR$(2) E 
LSE GOTO 5610 


5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6080 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 


NEXT 1 


GOTO 5400 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


19,64: 
20,64: 
21,64: 
22,64: 
19,64: 
20,64: 
21,64: 
22,64: 
FOR L=1 TO 19 


PRINT 
PRINT 
PRINT 
PRINT 


PRINT" 
PRINT" 
PRINT" 
PRINT" 


SPACE$(14) 
SPACE$(14) 
SPACE$(14) 
SPACE$ (14) 
Delimita la" 
ZONA del RADAR” 
con cursores” 
Fija BARRA ESP" 


LOCATE L,3:PRINT" " 


NEXT L 


FOR L=5 TO 57 


LOCATE 21,L:PRINT" " 


NEXT L 


LET RX1=2 
LET RX2=-18 
LET RY1=6 
LET RY2=56 
LET DPB=0 
LOCATE RX1,3:COLOR 18:PRINT CHR$(26): COLOR 2 
A$=INKEYS$: IF A$="" 


IF A$="2" THEN IF RX1<17 THEN GOTO 5870 ELSE GOTO 5860 
IF A$="8" THEN IF RXi>2 THEN GOTO 5890 ELSE GOTO 5860 


IF ASC(A$)=32 THEN 
BEEP:GOTO 5820 

LOCATE RX1,3:PRINT " " 
LET RX1=RX1+1:GOTO 
LOCATE RX1,3:PRINT 
LET RX1=RX1-1:GOTO 
LOCATE RX1,3:PRINT 
LOCATE RX2, 3: COLOR 
A$=INKEY$: IF A$="" 


IF A$="2" THEN IF RX2<17 THEN GOTO 5980 ELSE GOTO 5970 
IF A$="8" THEN IF RX2>RX1+1 THEN GOTO 6000 ELSE GOTO 5970 


THEN GOTO 5820 
GOTO 5910 


5810 
5810 

CHR$(26) 

18:PRINT CHR$(26): COLOR 2 
THEN GOTO 5930 


IF ASC(A$)=32 THEN GOTO 6020 
BEEP:GOTO 5930 
LOCATE RX2,3:PRINT " " 

LET RX2=RX2+1:GOTO 5920 
LOCATE RX2,3:PRINT ” 

LET RX2=RX2-1:GOTO 5920 
LOCATE RX2,3:PRINT CHR$(26) 
LOCATE 21,RY1:COLOR 18:PRINT CHR$(24): COLOR 2 
A$=INKEY$: IF A$="" 


IF A$="6" THEN IF RY1<55 THEN GOTO 6090 ELSE GOTO 6080 
IF A$="4" THEN IF RY1>6 THEN GOTO 6110 ELSE GOTO 6080 


THEN GOTO 6040 


IF ASC(A$)= 32 THEN GOTO 6130 
BEEP:GOTO 6040 
:PRINT" " 


LOCATE 21,RY1 
LET RY1=RY1+1 
LOCATE 21,RY1 
LET RY1=RY1-1: 
LOCATE 21, RY1 
LOCATE 21,RYZ2: 


: GOTO 


6030 


:PRINT " 


GOTO 


6030 


:PRINT CHR$(24) 


A$=INKEYS: IF A$="" 


COLOR 18:PRINT CHR$(24): COLOR 2 
THEN GOTO 6150 

IF A$="6" THEN IF RY2<56 THEN GOTO 6200 ELSE GOTO 6190 

IF A$="4" THEN IF RY2>RY1+1 THEN GOTO 6220 ELSE GOTO 6190 


IF ASC(A$)=32 THEN GOTO 6240 
BEEP:GOTO 6150 
LOCATE 21,RY2:PRINT ' 

LET RY2=RY2+1:GOTO 6140 
LOCATE 21,RY2:PRINT" " 

LET RY2=RY2-1:GOTO 6140 
LOCATE 21,RY2:PRINT CHR$(24) 


LOCATE 23,63:PRINT"CONFORME S/N":COLOR 18:LOCATE 23,76:PRINT"?":COLOR 2 


A$=INKEYS: IF A$="" 


THEN GOTO 6260 


2 PROGRAMAS 


IF A$="S" OR A$="s" 


6290 BEEP:GOTO 6250 
6300 FOR Y=RY1 TO RY2 
6310 FOR X=RX1 TO RX2 


6330 NEXT X 

6340 NEXT Y 

6350 LOCATE 18,61:PRINT SPACE$(19) 
6360 LOCATE 19,61:PRINT SPACE$(19) 
6370 LOCATE 20,61:PRINT SPACE$(19) 
6380 LOCATE 21,61:PRINT SPACE$(19) 
6390 LOCATE 22,61:PRINT SPACE$(19) 
6400 LOCATE 23,61:PRINT SPACE$(19) 
6410 LOCATE 19,66:PRINT"En esta ZONA" 
6420 LOCATE 20,66:PRINT"Hay" 
6430'"LOCATE 21,66:PRINT"Posible IMPC" 
6440 LOCATE 20,71:PRINT DPB 

6450 GOTO 4440 


6470 LOCATE 9,28:PRINT"Flota” 
6480 LOCATE 12,29:PRINT"Listo" 


6500 LET DC=INT(RND*3.) +1 
6510 PRINT DC, 
GOTO 6500 


Programa: Monitor de código 
máquina para Spectrum 
Muchas veces es necesario trabajar 


con los Bytes de la memoria sin meternos 
en un desensamblador complicado. A ve- 


GRADO ANDINCIO 
HENAO DIDMOCAS 
- MAMMAMAD DOOM 
Tr ADDcnc 
PMA OM 6 mm 
PrODDMNODANDiNZ 


m 


ja Comandos de programa. 


THEN LOCATE 23,72:PRINT SPACE$(7):GOTO 6300 
6280 IF A$="N" OR A$="n"” THEN LOCATE 23,61:PRINT SPACE$(19):GOTO 5700 


6320 IF PTO(X,Y)>4 THEN LET DPB=DPB+1 


6460 LOCATE 7,21:PRINT"Se est situando la” 


6490 LOCATE 14,22:PRINT"Para el Combate S/N" 


ces sólo necesitamos ver el contenido 
de una zona de memoria, cambiar algu- 
nos Bytes, mover un bloque de una parte 
de la memoria a otro, etc. 


Con el programa que vamos a ver a 
continuación podremos hacer esto y mu- 
cho más. Las funciones que podemos 
realizar son las siguientes: 


— Buscar Bytes en memoria. 


— Ver las instrucciones (pulsando la 
H). 


— Ejecutar un programa en código 
maquina. 


— Cargar Bytes desde el casete. 
— Ajustar el puntero de visualización. 


— Imprimir una serie de Bytes por im- 
presora. 


— Trasladar Bytes de una zona a otra. 


— Cambiar el contenido de una posi- 
cion de memoria. 


— Cambiar de base de numeración. 


0908£0000000006000900060 


£00600000609 
DDR 


a] 
1] 
o 
1) 
1] 
[a] 
a 
1] 
16n] 
a] 
La] 
[la] 
[ta] 
a 
a] 
[a] 
pa] 
1] 
pa] 
1] 
[a] 
(9) 


BOCPORPDERRPEPRReRDSPRRaoa 


1000 
1010 
1020 
1030 


1040 


1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
LO 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 


PORPRDERRRRPRRORReRRaOD papa 


OPRPERSEREPREDRERPRDSEPROOAnRe 
PRECGOPPEODS ROGER PABERAOOe 


PREEODPEOPRROOBRRROEOA 
PREOPODPEPODOROOSD IR erro 
SO-OCROPOR POB OPPOEAO 
DPRPEPOPPROPRRRRRRO RRA 


m 
ín 
4 
Q 


EN EASE <= 


AMOO OOOO OOOO jOS OOOO jojOlOJOK 


* MONITOR DE MEMORIA *x 
IMSS SOS SISI lSIOIOJOJOK: 


ASIS SISSI jSS ISSO” lolOROJOK: 
REM x 

Xx (c) Ediciones Siglo Cultural 
REM x*x 

x (c) 1987 

REM *R 

AMOS OSO SOS ISO SISSI lOlSlOlOJOK: 


XX XX - * % 


AOS OOOO OOOO OK 


*k INICIALIZACION x*x 
FS lojojok 


GOSUB 3210 

LET BAS=10 

POKE 23296,0 

POKE 23658, 8 

LET MP=0 

LET MOD=2 

REM 

REM ad SMS ISSO 
REM * PROGRAMA PRINCIPAL x 
REM ss IS ISSO ISSO IOIO IO 
REM 

CLS 

PRINT AT 2,15;"ESTOY EN BASE ";BAS 
GOSUB 1480 

LET K$=INKEY$ . 

IF K$="" THEN GOTO 1300 


1310 
1320 IF K$="6" THEN LET MP=MP+(1 AND MP<65535 )-(MP AND MP=65535 ):GOSUB 1480:GO 
TO 1300 . ; 

1330 IF K$="7" THEN LET MP=MP-(1 AND MP>0)+(65535 -MP AND MP=0):GOSUB 1480:GOTO 
1300 


1340 IF K$="5" THEN LET MP=MP+(10 AND MP+10<85535 )-(10-65536! AND MP+10>65535 ) 
:GOSUB 1480:GOTO 1300 

1350 IF K$="8" THEN LET MP=MP-(10 AND MP-10>0)+(-10+65526! AND MP-10<0):GOSUB 14 
80:GOTO 1300 

1360 IF K$="0" THEN INPUT "VALOR A POKEAR = ";P:POKE MP,P:GOTO 1270 

1370 IF K$="H" THEN GOSUB 3520:GOTO 1270 


PROGRAMAS 


1380 IF K$="B" THEN GOSUB 2010:GOTO 1300 
1390 IF K$="N" AND PEEK(29900)<>0 THEN GOSUB 2180:GOTO 1300 
1400 IF K$="J" THEN GOSUB 2250:GOTO 1270 
_ 1410 IF K$="L" THEN GOSUB 2350:GOTO 1270 
1420 IF K$="S" THEN GOSUB 2560:GOTO 1270 
1430 IF K$="M" THEN GOSUB 2680:GOTO 1270 
1440 IF K$="X" THEN GOSUB 2770:GOTO 1270 
1450 IF K$="P" THEN GOSUB 1720:GOTO 1270 
1460 IF K$="T" THEN GOSUB 2920:GOTO 1270 
1470 GOTO 1300 
1480 REM 
1490 REM dooSR dla lOSlEO ajo lOjSOlElOjOjOlOlOlOjoJak 
1500 REM * DISPLAY DE LA MEMORIA x*x 
1510 REM ddadldOOOSlSlajololalOlajajalolololololajak 
1520 REM 
1530 PRINT AT 0,0; 
1540 FOR A=MP-10 TO MP+11 
1550 LET B=A 
1560 IF A>65535 THEN LET A=A-65536 
1570 IF A<O THEN LET A=865536!+A 
1580 LET N$=STR$(A) 
1590 LET P$=STR$(PEEK(A)) 
1600 IF MOD=1 THEN GOSUB 3100 
1610 IF LEN(N$)<5 THEN LET N$="0"+N$:GOTO 1610 
1620 IF MOD=2 THEN IF LEN(P$)<3 THEN LET P$="0"+P$:GOTO 1620 
1630 IF MOD=3 THEN LET NUM=VAL(P$):GOSUB 1890 


1840 * PRINT " “;N$;" ";P3 
1650 LET A=B 
1660 NEXT A 


1670 PRINT AT 10,0;">" 
- 1680 IF MOD=1 THEN PRINT AT 10,15;"<" 
1690 IF MOD=2 THEN PRINT AT 10,10;"<" 
1700 IF MOD=3 THEN PRINT AT 10,9;"<" 
1710 RETURN 
1720 REM 
1730 REM AdSSOSO SS Oo kajoiojok 
1740 REM * SALIDA POR IMPRESORA * 
1750 REM AMSSSSOS OOOO OO iSOlOO OOO ROJOK 
1760 REM 
1770 INPUT "DESDE LA DIR. ";1 
1780 IF I<O THEN GOTO 1770 
1790 INPUT "HASTA LA DIR. ";F 
1800 IF F<I OR F>65535 THEN GOTO 1790 
1810 LET A=MP 
1820 FOR M=1+10 TO F STEP 22 
1830 LET MP=M 
1840 GOSUB 1480 
1850 CcoPY 
7 1860 NEXT M 
1870 LET MP=A 
1880 RETURN 
1890 REM 
1900 REM ASSoSSiS SOS Sada jSdO a jSidOa ajo OOIO OOO OJOK 
1910 REM * PASO DE DECIMAL A HEXADECIMAL * 
1920 REM ASS SS OOOO OOOO OOOO OOOO JOR 
1930 REM 
1940 LET P$="" 
1950 FOR C=1 TO O STEP -1 
1960 LET N=INT(NUM/16”C) 
1970 LET NUM=NUM-Nx16”C 
1980 LET P$=P$+(STR$(N) AND N<10)+("A" AND N=10)+("B"” AND N=11)+("C"” AND N=12 
)+("D" AND N=13)+("E" AND N=14)+("F" AND N=15) 
1990 NEXT C 
2000 RETURN 
2010 REM 
2020 REM dMSSSSOSO OSO olaa joo jok 
2030 REM * BUSQUEDA DE BYTES x* 
2040 REM ASS SSOSSldSSS SEO O KOOK 


2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 


2480 
2490 


2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 


REM 
POKE 23728,0 
POKE 23729,0 
INPUT "CUANTOS BUSCO? (1-5) ";B 
IF B>5 OR B<1 THEN GOTO 2080 
POKE 29900, B 
FOR A=1 TO B 
CLS 
PRINT "DAME EL NUMERO ";A 
INPUT "NUMERO > ";C 
IF C>255 OR C<O THEN GOTO 2140 
POKE 29900+A, C 
NEXT A 
LET A=USR 29500 
RANDOMIZE A+1 
POKE 23728,PEEK(23670) 
POKE 23729,PEEK(23671) 
LET MP=A 
GOSUB 1480 
RETURN 
REM 
REM SOSA SOS SS SOS jS SEIS lOJOJOJOJOK 
REM * SALTO A UNA DIRECCION DE MEMORIA X*X 
NS 
REM 
INPUT "A QUE DIRECCION SALTO? (0-65535) ";J 
IF J<0 OR J>65535 THEN GOTO 2300 
INPUT "ESTAS SEGURO? (S/N) ";A$ 
IF A$(1)="S" OR A$(1)="s" THEN PRINT USR J 
GOTO 3750 
REM 
REM ASS SS SOS lS OOOO lO OOO IOIOIOROIOK 
REM * CARGAR BYTES (LOAD) * 
REM daSlSlSSSSlS ISSO lO OJO SlSlOJOJOJOK 
REM 
GOSUB 2450 
IF A$(1)="M" OR A$(1)="m"” THEN LOAD *x"M";1;N$CODE D: RETURN 
IF A$(1)<>"C" AND A$(1)<>"c" THEN GOTO 2400 
LOAD D$CODE D 
RETURN 
REM 
REM daaSlS OSOS OSO lO Olla lOJOJOJOJOK 
REM * CASETE O MICRODRIVE? * 
REM sSSS SO SO SOS lSlOlOlOjOlOJOJOK 
REM 
INPUT FLASH 1;"C";FLASH 0;"ASETE O ";FLASH 1;"M";FLASH 0;"ICRO? ";LINE A$ 
INPUT "NOMBRE? (0-10 CHRS.) ";N$ 
IF LEN(N$)>10 THEN GOTO 2510 
INPUT "DIRECCION? ( >30000 ) ";D 
IF D<30000 OR D>65536 THEN GOTO 2530 
RETURN 
REM 
REM Ro SSS OSOS ISISSSOlOlOJOROJOK 
REM * GRABAR BYTES (SAVE) x*x 
REM RSS OSOS ISSO SS lSJSIOROJSJOK 
REM 
GOSUB 2450 
INPUT "LONGITUD? ";L 
IF L>35535! OR L<0O THEN GOTO 2620 
IF A$(1)="M" OR A$(1)="m" THEN SAVE *"M";1;N$CODE D,L: RETURN 
IF A$(1)<>"C" AND A$(1)<>"c" THEN GOTO 2610 
SAVE N$CODE D,L 
RETURN 
REM 
REM ASSSSS SOS SOS SES lElOlolO Jak 
REM * CAMBIAR PUNTERO DE MEMORIA x*x 
REM RSS OSOS OIOJOK 
REM 


2 PROGRAMAS 


2730 INPUT "MEMORY = ";M 

2740 IF M>65535 OR M<O THEN GOTO 2730 

2750 LET MP=M ' 

2760 RETURN 

2770 REM 

2780 REM daaaSSlS SISMOS OSO JVJOKOK 

2790 REM * CAMBIO DE BASE x 

2800 REM dxaaSlSIOIO ISSO SOOJSJOJOJOK 

2810 REM 

2820:PRINT 4T 5,193. "1. BASE 2.” 

2030 PRINT.AT 7,18;"2. BASE 10." 

2840 PRINT AT 9,18;"3. BASE 16.” 

2850 LET K$=INKEYS : 

2860 IF K$="",THEN GOTO 2850 

2870 IF K$<>"1" AND K$<>"2" AND K$<>"3" THEN GOTO 2850 
2880 LET BAS<(2 AND K$="1")+(10 AND K$="2")+(16 AND K$="3") 
2890 LET MOD=VAL(K$) 

_2900 LET K$="" 

2910 RETURN 

2920 REM 

2930 REM AMSSSIOIOIO OOOO JOKOKk 

2940 REM * MUEVE BYTES * 

2950 REM sSSISS SOS SOlOlOlOloK 

2960 REM 

2970 INPUT "DESDE? ";P 

2980 IF P<O OR P>65535 THEN GOTO 2970 

2990 INPUT "HASTA? ";D 

3000 IF D<O OR D>65535 THEN GOTO 2990 

3010 INPUT "LONGITUD? ";L 

3020 IF L<O OR L>65535! THEN GOTO 3010 

3030 IF D<P+L AND D>P THEN POKE 29562,184:RANDOMIZE P+L:POKE 29900, PEEK(23670): 
OKE 29901,PEEK(23671):RANDOMIZE D+L:POKE 29902, PEEK(23670):POKE 29903, PEEK( 236% 
) 

3040 IF D<P+L AND D>P THEN RANDOMIZE L:POKE 29904,PEEK(*x23670):POKE 29905, PEEK( 
3671):RANDOMIZE USR 29550:POKE 29562, 176: RETURN 

3050 RANDOMIZE P:POKE 29900, PEEK(23670):POKE 29901, PEEK(23671) 
3060 RANDOMIZE D:POKE 29902, PEEK(23670):POKE 29903,PEEK(23671) 
3070 RANDOMIZE L:POKE 29904,PEEK(23670):POKE 29905, PEEK(23671) 
3080 RANDOMIZE USR 29550 

3090 RETURN 

3100 REM 

3110 REM AaaaSlSlSIOSISISSISjOISJSJSJSJSSSIS ISO ISIOIOIOJOK: 

3120 REM * PASO DE DECIMAL A BINARIO x* 

3130 REM ddaaaSIS ISSO ISSO SIRO SSI IOIOIOIOIOIOROR 

3140 REM 

3150 POKE 29910, VAL(P$) 

3160 LET P$="" 

3170 FOR D=1 TO 8 

3180 LET P$=P$+STR$(USR 29600) 

3190 NEXT D 

3200 RETURN 

3210 REM 

3220 REM dsSSSSISIOSIOSSISIOIOJOKOKKk 

3230 REM * CODIGO MAQUINA *x 

3240 REM AsaoOIOIO SOS O OSOS JOKOK 

3250 REM 

3260 RESTORE 3470 

3270 FOR A=0 TO 34 

3280 READ B 

3290 POKE 29500+A,B 

3300 NEXT A 

3310 RESTORE 3500 

3320 FOR A=0 TO 13 

3330 READ B 

3340 POKE 29550+A,B 

3350 NEXT A 

3360 RESTORE 3510 

3370 FOR A=0 TO 14 


READ B 
POKE 29600+A, B 
NEXT A 
RETURN 
REM 
REM ARSS S SS S SOS SjSSRSOlSS SOS JOSE JSlElS OSI lOlSIOJOK 
REM * LINEAS DATA CON EL CODIGO MAQUINA x 
REM SS S SOS SOS SOS ESOS OSOS” lOIOK 
REM 
DATA 237,91,176,92,33,204,116,126,213,71,35,26,19,190,32,10 
DATA 16,248,209,237,83,176,92,66,75,201,209,19,237,75,176,92 
DATA 122,184,40,2,24,222,123,185,200, 24,217 
DATA 42,204,116,237,91,206,116,237,75,208,116,237,176,201 
DATA 58,214,116,203,39,50,214,116,1,0,0,208,14,1,201 
REM 
REM ASS SOS O SlSSlolOOjOlOKak 
REM * INSTRUCCIONES x* 
REM dMSISSSS SS SSlolSOlolEjOkOK 
REM 


CLS 

PRINT INVERSE 1;"** INSTRUCCIONES xx" 
PRINT 

PRINT ; 

PRINT FLASH 1;"B";FLASH 0;"USCA BYTES EN MEMORIA" 


PRINT FLASH 1;"H";FLASH 0;"ELP. PONE ESTAS INSTRUCCIONES. " 
PRINT FLASH 1;"J";FLASH 0;"UMP. EJECUTA CODIGO MAQUINA. * 
PRINT FLASH 1;"L";FLASH 0;"OAD. CARGA BYTES. " 

PRINT FLASH 1;"M";FLASH 0; "EMORY. AJUSTA EL PUNTERO. " 
PRINT FLASH 1;"P";FLASH O; "RINTER. PASA POR IMPRESORA. " 
PRINT FLASH 1;"S";FLASH 0;"AVE. GRABA BYTES. " 

PRINT FLASH 1;"T";FLASH 0; "RASLADA BYTES. " 

PRINT FLASH 1;"X";FLASH 0;” CAMBIA DE BASE. " 

PRINT FLASH 1;"5";FLASH 0;" = AUMENTA EL PUNTERO EN 10.” 
PRINT FLASH 1;"6";FLASH 0;” = AUMENTA EL PUNTERO EN UNO. * 
PRINT FLASH 1;"7";FLASH 0;" = DISMINUYE EL PUNTERO EN UNO. ” 
PRINT FLASH 1;"8";FLASH 0;" = DISMINUYE EL PUNTERO EN 10." 
PRINT FLASH 1;"0";FLASH 0;" = POKEA EN EL PUNTERO. " 

PRINT *1;FLASH 1;"PULSA TECLA" 

PAUSE O 

CLS 

RETURN 


AJO el nombre de 
«terminal de panta- 
lla» o «equipo de 
pantalla» se suele in- 
cluir una variedad 
grande de equipos 
caracterizados por 
estar formados por 
una pantalla de presentación de resulta- 
dos y, normalmente, un teclado (con o 
sin memoria auxiliar de almacenamiento 
temporal de datos y con capacidad de 
proceso autónomo o sin ella). En algunos 
casos específicos la pantalla está prepa- 
rada para aceptar datos por contacto 
(«touch screen») o mediante un lápiz óp- 
tico. En fin, el tamaño de la pantalla y el 
tamaño y disposición del teclado pue- 
den variar, aunque existen ciertos cáno- 
nes a los que se suelen adecuar las panta- 
llas más comunes. En los ordenadores 
personales los elementos más visibles 
son, precisamente, la pantalla y el tecla- 
do e, incluso en ocasiones, la propia CPU 
y los sistemas de almacenamiento están 
incluidos en la carcasa donde se aloja la 
pantalla o en la del teclado. 

Esta simplicidad que describimos y el 
abaratamiento de los costes hacen que, 
hoy en día, no se conciba una aplica- 
ción informática que no interactúe con 
uno o varios terminales de pantalla 
(aparte, claro está, de los numerosos ca- 
sos en que la aplicación está concebi- 
da, precisamente, para trabajar directa- 
mente sobre un ordenador personal o 
profesional). 


TECNICAS DE ANALISIS 


TERMINALES DE PANTALLA (1) 


[| Configuraciones 


Surgen, por tanto, tres configuraciones 
posibles para un equipo de pantalla: 


— Terminal de pantalla, propiamente 
dicho. Se utiliza el vocablo «terminal» 
cuando el equipo trabaja conectado a 
un ordenador principal, sin ser el elemen- 
to básico de gobierno de dicho ordena- 
dor. 

— Puesto de trabajo (a veces llamado 
estación de trabajo, como traducción li- 
teral del término inglés «work station»). Se 
da este nombre a un equipo de pantalla 
cuando dispone de cierta capacidad de 
proceso autónomo, aunque, además, 
esté conectado a un ordenador princi- 
pal para la realización de ciertas tareas 
que requieran mayor capacidad de pro- 
ceso de datos no disponibles en el pro- 
pio puesto de trabajo, o bien para el al- 
macenamiento posterior de los resulta- 
dos del proceso. 

— Ordenador personal. Es una unidad 
autónoma de trabajo (aunque pueda 
eventualmente estar conectada a otras, 
formando una red, pueda utilizarse como 
estación de trabajo e, incluso, usarse 
como mero terminal —«inteligente» o 
no— de un ordenador principal). 


Funcionalidad 


Respecto de la utilidad que se pueda 
dar a la pantalla del terminal, se pueden 
considerar varias funcionalidades: 


OA AÁ 


sd Y AAA . ar ru U 
4 Mead LOCUTOR 
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y «funcionamiento. Lol 
Semilienente ona 


DATOS DEL RECIBO 


a A AA 
DIRECCION.CALLE E 


POBLACION Y DP 
IMPORTE (NUM) 
CONCEPTO 


FECHA /. /19. 

MODO DE COBRO 
IMPUTACION CONT _Z 22 
RECIBIDO POR 
DBSERVACTONES 


— Entrada de datos. En este caso, sue- 
len acumularse numerosos campos en 
pantalla, tanto porque quien realiza la 
entrada de los datos está más prepara- 
do para operar con una pantalla de es- 
tas características, como porque la pro- 
pia utilidad a obtener así lo exige. Pue- 
den concebirse dos tipos de pantalla de 
entrada de datos: pasiva (cuando la 
pantalla meramente recoge los datos y 
los almacena —a lo sumo con un some- 


do ERASE ASYSTEMIPREEBA 
1 FILE(S) ERASED 


Pp DR 


f CD ASYSTEM 


AASYSTEN DIR 


GEN, BIN 
AUTOEXEC.. PR6 
LIST. EXE 


l A Pantalla de gestión de un ordenador personal. 


ro preproceso— para su posterior depu- 
ración —en «batch»— o interactiva (si, a 
medida que se van introduciendo los da- 
tos, se van depurando o procesando y, 
según los resultados del proceso o depu- 
ración, la pantalla devuelve información 
al operador y/o solicita nuevos datos). 

— Diálogo. Es una modalidad de pre- 
sentación interactiva en que priman más 
los aspectos de tipo conversacional que 
los de entrada de datos, propiamente di- 
cha. Este es el modo usual de trabajo en 
los equipos, de diseño, en los sistemas de 
planificación o toma de decisiones, etc. 
Las pantallas a utilizar en la modalidad 
de diálogo suelen tener un aspecto más 
«descargado» e incluyen, normalmente, 
información de ayuda a quien está intro- 
duciendo datos y contestando las pre- 
guntas. Por supuesto, respecto del diálo- 
go en general y de las preguntas en par- 
ticular hay que tener en cuenta cuanto 
se comentó en su momento al hablar de 
los cuestionarios de toma de datos, para 
hacer la pantalla clara, cómoda de uso 
y segura (que evite, en la medida de lo 
posible, la comisión de errores). 

— En otros muchos casos, el terminal 
de pantalla es el elemento de gobierno 
del ordenador (ordenadores persona- 
les), además de servir como elemento de 
entrada de datos. 


Funciones 
recursivas 
en PASCAL 


AMBIEN el lenguaje 
PASCAL permite que 
un módulo sea invo- 
cado dentro de su 


propia definición, es- 


decir, construir módu- 

los recursivos. Vea- 

mos, en primer lugar, 
el mismo ejemplo de la función factorial 
que dimos en APL: 


program FAC; 
function factorial (x:2integer):real; 
(k Esta función calcula recursivamente 
el factorial de X X) 

begin 

if x<2 then factorial := 1 

else factorial := x*factorial (x-1)3 

end; 
var numero:integer; 
begin 

witeln("Escriba un número”); 

readln (numero); 

witeln(”Su factorial es = *, factorial 
(numero));¿ end. 


Su funcionamiento es idéntico al de la 
función APL descrita al final del capítulo 
anterior. Veamos algunos ejemplos de su 
uso: 


Como se verá, hemos tenido que defi- 
nir el resultado de esta función como 
REAL, ya que el valor del factorial de un 
número crece muy de prisa y se sale muy 
pronto de los limites permitidos para los 
números enteros. Los valores obtenidos 


TECNICAS DE 
PROGRAMACION 


PROGRAMACION MODULAR (CONCLUSION) 


Run 
Escriba un número 
1 


Su factorial es = 1: 00000000000000E+000 
Run 


Escriba un número 


Su factorial es = 1.20000000000000E+002 
Run 

Escriba un número 

10 


Su factorial es = 3.62880000000000E+006 


para los factoriales de 1, 5 y 10, dados 
en el ejemplo, resultan ser 1, 120 y 
3628800. Este último ya precisa de la re- 
presentación interna en forma de núme- 
ro real en la mayor parte de los compila- 
dores de PASCAL. 

Esta función sirve únicamente como 
ejemplo sencillo de recursividad. En la 
práctica no se usa, pues es mucho más 
eficiente utilizar un bucle. 

Veamos cómo se ejecuta esta función 
recursiva, siguiendo con detalle el caso 
de que queramos calcular el factorial de 
3. Al recibir control la función factorial, la 
variable x vale 3. La única instrucción de 
la función comprueba primero si x es me- 
nor que 2. Como no es este el caso, se 
ejecutará la parte ELSE, que calcula el re- 
sultado de la función multiplicando x (3) 
por el factorial de x- 1 (2). Es preciso, 
pues, calcular el factorial de 2. Para ello 
utilizamos la misma función. Zomo la va- 
riable x es local, el valor antiguo (3) que- 
da fuera del alcance del programa por 
el momento y. la segunda vez que entra- 
mos en la función, x valdrá 2. De nuevo 
ejecutamos la instrucción condicional y 


de nuevo tenemos que tomar la alterna- 
tiva ELSE (pues x no es menor que 2). El re- 
sultado del segundo paso por la función 
factorial es, pues, igual al producto de x 
(2) por el factorial de x - 1 (1). Hay que 
calcular, por tanto, el factorial de 1, para 
lo cual entramos por tercera vez en la 
función. De nuevo la variable x es local, 
y ahora vale 1. Esta vez, al ejecutar la ins- 
trucción condicional, seguiremos la al- 
ternativa THEN, pues x (1) es menor que 
2. El resultado de la función es, por tanto, 1. 
Vamos ahora a deshacer el camino an- 
dado. Ya sabemos que factorial (1) es 
igual a 1. Salimos, por tanto, de la terce- 
ra ejecución de la función y pasamos a 
la segunda. La variable local x recupera 
ahora su valor 2. La tunción se quedó in- 
terumpida cuando iba a multiplicar x 
por factorial (1). Ahora podemos calcu- 
lar este producto, que es igual a 2 por 1, 
es decir, 2. Ya conocemos el valor de 
factorial (2) y podemos abandonar la se- 
gunda ejecución de la función. Pasamos 
a la primera, donde la variable local x re- 
cupera su valor 3. Esta función había que- 
dado interrumpida cuando iba a multipli- 
car x por factorial (2). Ahora ya conoce- 
mos ambos valores y el producto es igual 
a 3 por 2, es decir, 6. Salimos, por tanto, 
de la primera ejecución de la función 
factorial, obteniendo el siguiente resulta- 
do final: factorial (3) es igual a 6. 
Resumamos lo anterior en una tabla: 


PASO FUNCION VALOR DE X  X<2 RESULTADO 


3XFACTORIAL (2) 


2XFACTORIAL (1) 
1 . ' 
2kx1=2 
3k2=6 


Funciones recursivas 
en BASIC 


Es posible construir funciones recursivas 
en BASIC, aunque su programación es 
más molesta y difícil que en APL o PAS- 
CAL, donae la existencia de variables lo- 
cales facilita considerablemente las co- 
sas. Veamos cómo se programaría en BA- 
SIC de forma recursiva la funcional FAC- 
TORIAL que hemos tomado como ejem- 
plo: 


REM Función recursiva en BASIC 
DIM P(175) 
PRINT "Escriba un número" 
INPUT X 
I=1 
GOSUB 1000 
PRINT "Su factorial es =";F 
END 
1000 REM Cálculo recursivo del factorial 
1010 IF X<2 THEN F=1: RETURN 
1020 P(I)=X 
1030 I=I+1 
1040 X=X-1 
1050 GOSUB 1000 
1060 I=I-1 
1070 F=FxP(1) 
1080 RETURN 


Veamos que, efectivamente, funciona: 


Run 
Escriba un número 
> 1: 


Su factorial es = 1 

Run 

Escriba un número 

eS 

Su factorial es = 120 

Run 

Escriba un número 

? 10 

Su factorial es = 3428800 


Puede comprobarse que los resultados 
son los mismos que en el caso de PAS- 
CAL. Pero observemos la función recursi- 
va: es evidente que se llama a sí misma 
(la instrucción GOSUB 1000 puede ejecu- 
tarse después de llamar al módulo de eli- 
queta 1000 y antes de devolver el con- 
trol a quien lo llamó). En el momento de 
recibir control el módulo, la variable X 
contiene el valor cuyo factorial desea- 
mos calcular. El resultado se devuelve en 
la variable F. Sin embargo, como no exis- 
ten variables locales, tenemos que guar- 
dar en algún sitio los valores que va to- 
mando la variable X en cada llamada al 
módulo. Para ello utilizaremos la variable 
vectorial P, que podrá tener hasta 175 
elementos (en la mayor parte de los or- 
denadores personales es imposible cal- 
cular el factorial de un número mayor de 
175, pues el resultado sería demasiado 
grande). Tendremos que definir también 
un contador para señalar hasta dónde 
hemos llenado el vector P. Este contador 
será la variable |, que inicialmente vale 
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1, porque la primera posición no utiliza- 
da de P es la primera. 

Cada vez que reciba control el módu- 
lo de etiqueta 1000, empezará por com- 
probar si el valor de X es menor que 2. En 
caso afirmativo, hará F (el resultado) 
igual a 1 y devolverá control. En caso 
contrario, guardará el valor de X en la 
primera posición libre de la variable vec- 
torial P, aumentará en una unidad el va- 
lor de |, puesto que ahora la primera po- 
sición libre es la siguiente, reducirá el va- 
lor de X en una unidad, pues va a calcu- 
lar el factorial de X — 1, y llamará al mó- 
dulo de etiqueta 1000. Después de obte- 
ner el factorial de X - 1, este valor debe 
multiplicarse por el valor antiguo de X al 
entrar en el móduio. Para obtenerlo bas- 
tará con disminuir en una unidad el valor 
de | y sacarlo de la variable vectorial P (l). 
Este número se multiplica por F y se co- 
loca en F, pues es el resultado de esta 
pasada de cálculo de la función facto- 
rial. Ahora ya podemos devolver el con- 
trol al último que llamó al módulo de eti- 
queta 1000, que pudo ser el mismo des- 
de la instrucción de etiqueta 1050. 

La tabla siguiente detalla cómo va eje- 
cutándose el programa: 


50 


60 
1000-1010 
1020 


1000-1010 
1020 
1030 

1040 


1050 
1000 | 
1010 RETURN 
1040 
LO7D A 
1080 RETURN 
1060 
1070 
1080 RETUR 

70 IMPRIME F 
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Se observan claramente en la tabla las 
tres pasadas del módulo que calcula la 
función factorial y los valores que van to- 
mando las variables a lo largo de la eje- 
cución del programa. Como se observa- 
rá, el proceso es muy semejante al expli- 
cado para las versiones APL y PASCAL de 
este programa, pero en BASIC tenemos el 
problema adicional de tener que guar-: 
dar los valores sucesivos de las variables 
que han de funcionar como locales. En 
este caso concreto sólo había una, pero 
es muy posible que se desee construir 
funciones recursivas con muchas varia- 
bles locales, y en tal caso el lenguaje BA- 
SIC es totalmente desaconsejable. 

El ejemplo que hemos seguido, la fun- 
ción factorial, es un caso muy sencillo y 
ha sido útil para aclarar el funcionamien- 
to de la programación modular recursi- 
va. Pero no es conveniente utilizarlo en la 
práctica, por razones de eficiencia. Ya 
hemos visto que esto es absolutamente 
innecesario en APL, pues en este lengua- 
je existe un símbolo que calcula directa- 
mente esta operación matemática. En 
PASCAL y BASIC sería más conveniente 
utilizar un procedimiento iterativo (con 
bucles). Veamos el caso de BASIC: 


REM Función iterativa en BASIC 
PRINT "Escriba un número" 
INPUT X 
GOSUB 1000 
PRINT "Su factorial es =",F 
END 
1000 REM Cálculo iterativo del factorial 


1010 Fmi 

1020 FOR I=i TO X 
1030 F=FxI 

1040 NEXT 1 

1050 RETURN 


DBASE lll (y 2) 


N esta segunda parte 
dedicada el dBASE lll 
estudiaremos los co- 
mandos más usuales 
del dBASE y realizare- 
mos una aplicación 
práctica con ellos. 
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APLICACIONES 


O Comando de manejo 
de ficheros 


— CREATE: Permite crear un fichero de 
base de datos. 

— USE: Selecciona un fichero para su 
utilización. 


MANDATOS INICIALES 


Mandatos dBASE 111 --- Conjunto Inicial 


DAA 11 — DELETE FILE 
2 — APPEND 12 =».DIR 

3 - AVERAGE 13 -— DISPLAY 

4 — BROWSE 14: DO 

3 - CHANGE A EE Y 

6. - CLEAR 16 - ERASE 
E Y 1 == ELEND 

8 - COUNT 18 - G0/GOTO 

9 = CREATE ¿ET IINDEA 

10 DELETE LOS ABEL 


FaUp=pantalla previa, Esc=salir de AYUDA, 


Teclee > 


[A Fig. 1. Mandatos iniciales de DBASE. 


Los comandos pueden agruparse por 
sus funciones en: 


— Comandos de manejo del fichero. 

— Comandos de localización de da- 
tos. 

— Comandos de entorno. 

— Comandos de usos generales. 


E RN E 31 = SEER 
22 - LOCATE 327. SET 
23 == MODIFY O ASK 
24 - PACK 34 - SORT 
25 - QUIT 20 SS TURE 
26. = RECALL 36 -— SUM 
27 — RELEASE 37 = TOPAL 
28 -— RENAME A a 
29 = REPLACE AA SE 
30 — REPORT: 
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— APPEND: Añade registros al final de 
un fichero de datos. 

— INSERT: Inserta registros en alguna 
posición específica. 

— DELETE: Borra registros. 

— PACK: Elimina fisicamente los regis- 
tros borrados. 
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— RECALL: Recupera los registros 
borrados. 

— ERASE: Borra ficheros. 

— INDEX: Crea un índice de un fichero, 
permitiendo reducir el tiempo de bús- 
queda de una forma considerable. 

— SORT: Ordena alfabéticamente o 
numéricamente los ficheros. 


Comandos de localización 
de datos 


— LOCATE: Busca datos de un fichero 
según una expresión lógica. 

— FIND: Busca datos en un fichero in- 
dexado. 


Comandos de entorno 


Todos estos comandos tienen dos posi- 
bilidades: activados y desactivados 
(on/off), mostraremos solamente los más 
representativos entre los muchos que tie- 
ne el programa: 
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SET CONSOLE: Permite o no que las sali- 
das de datos se produzcan por la panta- 
la. 

SET DEBUG: Cuando está activado entra 
en el modo de depuración de progra- 
mas, de forma que cuando ejecuta una 
instrucción se realiza una parada. 

SET EXACT: Obliga, si está activado, que 
en las búsquedas la cadena buscada 
coincida exactamente con la encontra- 
da en el registro leído. 

SET MENUS: Muestra los menús de ayu- 
da ono. 

SET UNIQUE: Si está activado (on), en los 
ficheros indexados no se permiten claves 
duplicadas. 

SET PRINT: Cuando se activa todo lo en- 
viado a la pantalla se envía también a la 
impresora. 

Realizaremos ahora un ejemplo prácti- 
co con el dBASE lll: 

Supongamos que queremos llenar una 
agenda telefónica para poder consultar 
datos. 

El primer paso será crear un fichero de 
datos con el comando CREATE. 


MANDATOS AVANZADOS 


Mandatos dBASE 111 --— Conjunto Avanzado 

 OOn.AKúéáñáaOa "<>" > RR 
1-_- 1! 10 -— DO WHILE 19 - MODIFY CMDS 28 -— RETURN 
2 - q 11 -— EJECT 20 — NOTE/* 29 -— RUN 
3 -— ACCEPT 12 - EXIT 21 - PARAMETERS 3O -— SAVE 
4 -— CANCEL 13S - EF 22 -— PRIVATE 31 -— SELECT 
S -— CLOSE 14 — INPUT 23 -— PROCEDURE 32 — TEXT 
6 — CONTINUE 15 — INSERT 24 -— PUBLIC 33 - UPDATE 
Y = COPY FILE 16 — JOIN 25 — READ 34 -—- WAIT 
8 -— DISPLAY CMDS 17 - LIST CMDS 26 —- REINDEX 35S -— ZAP 
9 — DO CASE 18 -—- LOOP 27 -— RESTORE 


FgUp=pantalla previa, Esc=salir de AYUDA, 


Teclee > 


[A Fig. 2. Mandatos avanzados de DBASE. 


El comando completo es: CREATE 
AGENDA; donde agenda es el nombre 
que tendrá el fichero. 

Pasamos después a introducir su es- 
tructura. Una vez creado el fichero el si- 
guiente paso es introducir los datos en él, 
para lo cual ponemos: 


USE AGENDA 
APPEND 


Para terminar de introducir datos pulse- 
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mos el RETURN al principio del primer 
campo. 

Para localizar los datos en este fichero 
podremos utilizar el comando LOCATE, 
primeramente USE AGENDA, si es que no 
lo hemos hecho antes. 

El formato de la instrucción LOCATE es: 


LOCATE FOR descripción 


Por ejemplo, si queremos encontrar los 
datos de JOSE PEREZ pondremos: 


LOCATE FOR NOMBRE = “ JOSE PEREZ ” 


Esta instrucción en el programa se ha- 
brá situado en el registro que cumple esa 
expresión, pero sin mostrar su contenido; 
para ello bastará con poner DISP, apare- 
ciendo los datos del registro buscado. 

Esta búsqueda la podemos realizar con 
cualquier campo del fichero, en nuestro 
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Mandatos SET ON/OFF 


ejemplo con la dirección o el teléfono. 
Para realizar el listado del fichero utili- 
zaremos la opción REPORT. Como paso 
previo tendremos que crear el formato 
del listado con el comando: CREATE RE- 
PORT. Con el formato ya creado utilizare- 
mos REPORT nombre, y si queremos que 
el listado salga por impresora, pondre- 
mos entonces: REPORT nombre TOPRINT. 


SET ON/OFF 


1 - SET ALTERNATE S = SET DELINITER 13 — SET. INTENSITY 
£ BET BELL 9:-= 2ET ECHO 16 -— SET MENUS 

3 - SET CARRY 10 =, SET ESCAPE 16 2 ¿SET PRINE 

4 - SET CONFIRM 1d, SEN EASOT 18 = SEF SAFETY 

S - SET CONSOLE 12 >= SEL FIXED 19. = EF STEP 

6 — SET DEBUG 13 - SET HEADING 20 -— SET TALK 

e = SET DECETED A SAGET HELP 21 - SET UNIQUE 


El valor por omisión (ON u OFF) se muestra en mayúsculas. 


PgUp=pantalla previa, Esc=salir de AYUDA, 


Teclee > 


[A Fig. 3. Mandatos set ON/OFF. Teclee > 


Comando ASSIST 


Por medio de este comando el progra- 
ma dBASE proporciona una potente ayu- 
da para todos aquellos usuarios que no 
estén familiarizados con el programa. 

Al teclear ASSIST el programa entra en 
un primer menú, en el que explica las te- 
clas de función que existen. 

Posteriormente el programa muestra 
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DES IASOAS 10 — DAYt) 

2 "AMO 117 DEPETERI 
2 += BOExO 12 — DOW() 

4 — CDOW() 13 -— DTOC() 

S = THRC) 14. = E0F €) 

6 —- CMONTH () lO o ALO, 

e EU) 67 AFTER 

S) =¡EFTUDCA MA NINA 

9 = DATE VA 15 EEN) 


FaUp=pantalla previa, Esc=salir de AYUDA, 


[A Fig. 4. Funciones de DBASE. Teclee > 


Funciones de dBASE 111 
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las primeras opciones que se activan 
simplemente poniendo el cursor encima 
de ellas y pulsando el RETURN. Una vez se 
ha seleccionado una de las opciones, el 
programa va guiando paulatinamente al 
usuario, de tal forma que no es necesa- 
rio recordar ningún comando, ya que el 
mismo va mostrando todas las posibles 
opciones y la secuencia correcta en que 
hay que ir introduciéndolas. 


FUNCIONES 

19. - 1062 29 BRACEC) 
20 — LOWER () 2 0 ¡SUERT O) 
21 —- MACRO/Z 30-— SPRCI 
22 — MONTH () 31. = BUBSTREI 
23, 7 PLOL CI A A 
24 — PROW() 32. TRIMCO 
25 — RECNO'C) 34 -= TYPE) 
26 — ROUND (> 39. = MIPPER:02 
27 — ROW() 36. =' VAL) 

37 — WEARC) 


“Home=menú previo o teclear mandato Teclee > 
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Mandatos SET TO 


ALTERNATE 
COLOR 
DECIMALS 
DEFAULT 
SET DELIMITER 
SET DEVICE 
SET FILTER 


SET 
SET 
SET 
Sel 


3 00BdN- 
ER IAN TS 


PgUp=pantalla previa, Esc=salir de AYUDA, 


Teclee > 


A 
¡A ) Fig. 5. Mandatos set de DBASE. 
SS 


De esta forma tan sencilla el programa 
permite que el usuario utilice las funcio- 
nes más avanzadas del programa, guián- 
dolo a través de todas las opciones posi- 
bles. 


HELP 

Con este comando el programa mues- 
tra información sobre cualquier aspecto 
del programa, bien sean comandos, fun- 
ciones u otras opciones. ) 

El comando HELP se activa automaática- 
mente cuando el usuario introduce un 
comando incorrecto, preguntando en 
este caso si desea ayuda. Otra forma de 
activar el comando es tecleando HELP, 
con la que el programa entrará en el 
modo de ayuda. 


SET 
SET 
SET 
SET 
SET 
SET 
SEL 


FATH 
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Mandatos dBASE lll - Conjunto inicial 


|—? 

2 — APPEND 

3 — AVERAGE 

4 — BROWSE 

5 — CHANGE 

6 — CLEAR 

7 — COPY 

8 — COUNT 

9 — CREATE 
10 — DELETE 


FUNCTION 
FORMAT 
INDEX 
MARGIN 


PROCEDURE 
RELATION 


11 — DELETE FILE 


12 — DIR 

13 — DISPLAY 
14 — DO 

15 — EDIT 

16 — ERASE 
17 — FIND+- 


18 — GO/GOTO 


19 — INDEX 
20 — LABEL 


SET: TO 


21 — LIST 

22 — LOCATE 
23 — MODIFY 
24 — PACK 
25 — QUIT 

26 — RECALL 
27 — RELEASE 
28 — RENAME 
29 — REPLACE 
30 — REPORT 


31 — SEEK 
32 — SET 
33 — SKIP 
34 — SORT 
35 — STORE 
36 — SUM 
37 — TOTAL 
38 — TYPE 
39 — USE 


PgUp = pantalla previa, Esc = salir de AYUDA, "Home = menú 
previo o teclear mandato, Teclee > | 


PASCAL 


Estructuras 
arbol 


EMOS visto que una 
lista encadenada es 
una secuencia de 
elementos en que 
cada uno contiene la 
referencia necesaria 
para acceder al ele- 
mento siguiente. Tam- 
bién podríamos definirla recursivamente 
de la siguiente manera: 
Una lista de tipo base T es: 


1. Una lista vacía. 

2. O bien el encadenamiento de un 
elemento de tipo T con una lista de tipo 
base T (y vuelta a empezar). 


Supongamos ahora que los elementos 
con los que, en principio, ibamos a formar 
una lista lineal contengan más de un 
campo donde guardar punteros a ele- 
mentos similares; podríamos tener una 
estructura como ésta: 


Ficha E EX 


ETT 


A estructuras semejantes se les deno- 
mina «estructuras árbol»; su definición re- 
cursiva es la siguiente: 

Una estructura árbol de tipo base Tes: 


1. Una estructura vacía. 


2. O bien un elemento de tipo T del 
que «cuelgan» un cierto número de es- 
tructuras árbol de tipo base T, sin elemen- 
tos comunes entre sí; a estas estructuras 
se les denomina «subárboles». 

El árbol de la figura está formado, por 
tanto, por el elemento A seguido del sub- 
árbol encabezado por el elemento B y 
del subárbol encabezado por C. Análo- 
gamente, podemos decir que el primero 
de éstos está formado por el elemento B 
seguido de los subárboles encabezados 
por D y E, y que el segundo está formado 
por el elemento C seguido del subárbol 
encabezado por el elemento F y de otro 
subárbol vacío. 

Comparando las definiciones de árbol 
y lista, resulta evidente que esta última es 
un caso particular de árbol en que cada 
elemento tiene a lo sumo un subárbol. 

Veamos a continuación una serie de 
términos habituales al trabajar con árbo- 
les. 

Se denomina «nodo» a cada elemento 
del árbol. Cuando un nodo Y depende 
directamente de un nodo X se dice que 
Y es «descendente» de X e, inversamen- 
te, que X es el «antecesor» de Y (recor- 
demos los árboles genealógicos); en el 
árbol del ejemplo, A sería el antecesor 
deByC, y Btendría a D y E como descen- 
dentes. 

El nodo superior, del que dependen to- 
dos los demás, se denomina «raíz» (A en 
el ejemplo), mientras que aquéllos que 
no tienen descendentes se denominan 
nodos terminales u «hojas» (de estos últi- 
mos se podría decir, siguiendo la defini- 
ción recursiva, que son árboles que cons- 
tan de un elemento del que cuelgan dos 
subárboles vacíos). 

Por definición, se dice que la raíz de un 
árbol está en el «nivel» 1, sus descendentes 
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en el 2, los de éstos en el 3, etc.; el máximo 
nivel encontrable en un árbol se dice 
que es su profundidad o altura (la altura 
del árbol del ejemplo sería 3). 

El número de descendentes directos 
de un nodo es su «grado»; el máximo de 
los grados de todos los nodos de un ár- 
bol es el grado del árbol (el árbol del 
ejemplo sería, por tanto, de grado 2). 

Un «árbol ordenado» es aquél en que 
los descendentes de cada nodo están 
ordenados según un criterio dado; por 
ejemplo, los árboles de la figura: 


están ordenados según criterios distintos 
y son desde ese punto de vista, por tan- 
to, distintos. En otras palabras, un árbol 
está ordenado cuando las diferentes «ra- 
mas» que salen de cada nodo tienen 
nombre propio y no pueden intercam- 
biarse entre sí por las buenas. 

Los árboles ordenados de grado 2 se 
denominan árboles «binarios» y tienen 
una gran importancia en proceso de da- 
tos. 


O Arboles binarios 


Se puede definir un árbol binario como: 


1. Un conjunto vacío de elementos. 

2. O bien un conjunto formado por un 
nodo con dos árboles binarios disjuntos, 
llamados subárbol «izquierdo» y «dere- 
cho» del nodo en cuestión. 


El árbol del ejemplo, silo consideramos 
ordenado, es un arbol binario. La defini- 
ción de cada nodo podria ser: 


type 
Puntero_t = “Nodo_t; 
Nodo_t = record 

Campoi : tipol; 
Campo2 : tipo2; 


Izquierda, 
Derecha : Puntero_t 
end; 


Los campos Izquierda y Derecha con- 
tendrían punteros para acceder a los dos 
posibles descendentes de cada nodo; la 
ausencia de éstos se indicaría con el va- 
lor predefinido NIL. Se necesitaría, ade- 
más, una variable de tipo Puntero -t, que 
podríamos llamar Raiz, para acceder a la 
raíz del árbol. 

Si necesitásemos recorrer todos los no- 
dos de un árbol para hacer algo con 
ellos (por ejemplo, mostrar su conteni- 
do), podríamos hacer lo siguiente: visitar 
primero el nodo raíz, luego su descen- 
dente izquierdo y entonces... ¿con cuál 
seguir? 

Si seguimos con los descendentes del 
izquierdo, ¿cuándo procesaremos el de- 
recho y sus descendentes?; habrá que 
anotar en algún sitio que están pendien- 
tes de visitar; el problema se volverá a 
presentar con los dos descendentes del 
izquierdo, etc. Por otra parte, si tras visi- 
tar el izquierdo pasamos al derecho, ha- 
brá que anotar que los descendentes del 
izquierdo están pendientes de ser visita- 
dos... Además, cuando queramos pasar 
a visitar los nodos pendientes, habrá que 
rehacer todo el camino desde la raíz 
para llegar a ellos. 

Afortunadamente, los árboles, y no sólo 
los binarios, son un caso típico de estruc- 
turas de datos que, teniendo una defini- 
ción recursiva natural, se pueden mane- 
jar con procedimientos recursivos de una 
manera muy sencilla. Por ejemplo, para 
recorrer un árbol el procedimiento po- 
dría ser: 


«Recorrer el árbol encabezado por el 
nodo apuntado por tal puntero:» 


1. Hacer lo necesario con el nodo en 
cuestión (mostrarlo...). 


2. Sitiene descendente izquierdo, en- 
tonces «recorrer el árbol encabezado 
por el nodo apuntado por Izquierdo». 


3. Si tiene descendente derecho, en- 
tonces «recorrer el árbol encabezado 
por el nodo apuntado por Derecho». 


Para recorrer el árbol completo ten- 
dríamos que «recorrer el árbol encabeza- 
do por el nodo apuntado por Raiz». Se po- 
dría programar así: 


procedure Recorrer (P: Puntero_t); 
begin 
with P” do 
begin 
Procesar (P"); 
if Izquierdo <> nil then Recorrer 
(Izquierdo); 


if Derecho <> nil then Recorrer 


Procesar sería el procedimiento que se 
desease aplicar a los diferentes nodos. 
También podríamos escribir el procedi- 
miento de recorrido así: 


procedure Recorrer 
begin 
if P <> nil then with P” do 


(Pz Puntero_t); 


(P)53 
Recorrer (Izquierdo); 
(Derecho) 


es decir, llamar al procedimiento cual- 
quiera que sea el valor de Izquierda y De- 
recha, que ya se encargará él de com- 
probarlo. De esta manera, además, po- 
dremos ejecutar Recorrer (Raiz) sin com- 
probar antes el valor de Raiz. 

Con estos procedimientos recorrería- 
mos cada nodo antes que sus dos subár- 
boles; se le denomina por ello recorrido 
en «pre-orden». 

Aplicado al árbol del ejemplo, la se- 
cuencia de recorrido sería A,B,D,E,C yF. 

Si el procedimiento fuese: 


procedure Recorrer (P: Puntero_t); 
begin 
if P <> nil then with P” do 
begin 
Recorrer (Izquierdo); 
Procesar (P"); 
Recorrer (Derecho) 
end 
end; 


antes de cada nodo recorreríamos pri- 
mero uno de los subárboles (en este caso 
concreto el izquierdo, pero podría ser el 
otro), luego el nodo en cuestión y, por úl- 
timo, el otro subárbol. Sería un recorrido 
en «orden central»; aplicado al ejemplo, 
la secuencia sería D, B,E,A,F y C. 
Por último, con el procedimiento: 


procedure Recorrer (Pz: Puntero_t); 
begin 
if P <> nil then with P” do 
begin 
Recorrer (Izquierdo); 
Recorrer (Derecho); 
(Pe) 


tendríamos un recorrido en «post-orden» 
que, aplicado al ejemplo, daría la se- 
cuencia D,E,B,F,C yA. 

Si representásemos el árbol del ejemplo 
al estilo de un diagrama sináptico, po- 
dríamos tener tres formas básicas: 


Ñ B 
T E» 
e 


Observando de arriba hacia abajo en 
qué orden quedan los diferentes nodos, 
salta a la vista que cada una de las figu- 
ras corresponde a uno de los tres órde- 
nes posibles de recorrido. 

Un programa para representar de algu- 
na de estas formas el contenido de un ár- 
bol en la pantalla del ordenador o en 
una impresora, debería, al recorrer los 
nodos, calcular en todo momento el ni- 
vel de cada uno para así saber cuánto 
avanzar hacia la derecha antes de escri- 
bir. 

Un procedimiento de recorrido en or- 
den central teniendo disponible en todo 
momento el nivel de cada nodo podría 
ser: 
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procedure Recorrer (Pz Puntero_t; 
N: integer); 

(Po o x) 
(£ N contiene el nivel del  X) 
(Xx nodo apuntado por P. x) 
a 9) 
begin 

if P <> nil then with P” do 


Si el nivel de un nodo dado es N, el ni- 
vel de cualquiera de sus descendentes 
es N + 1. Para empezar a recorrer el ár- 
bol ejecutariamos:. 


Recorre (Raiz, 1); 


En caso de que el procedimiento Pro- 
cesar lo necesitase, podría modificarse 
para transferirle en la lista de parámetros 
el valor del nivel del nodo a procesar. 


(Izquierdo, N + 1); 
Procesar (P"); 
(Derecho, N + 1) 


ADA-4 


Sintaxis del 
lenguaje 
ADA 
(continuación) 


RATAREMOS en este 
último capítulo de ex- 
plicar brevemente 
las diferencias restan- 
tes con respecto Ko! 
otros lenguajes más 
conocidos. Daremos 
también algunos 
ejemplos significativos. 

Una de las características del lenguaje 
ADA que es muy poco usual en los len- 
guajes existentes actualmente es la posi- 
bilidad de la ejecución de tareas en pa- 
ralelo. Estas tareas pueden ser imple- 
mentadas en ordenadores con un solo 


task PROTECTED_ARRAY is 


entry READ (MH 


begin 
loop 
= TABLE(N); 
end READ; 
or 
TABLE(N) := E; 
end WRITE; 


end loop: 
end PROTECTED_ARRAY; 


— INDEX and ELEM are global types 
: in INDEX; V : out ELEM); 


entry WRITE(N : in INDEX; E : in ELEM): 


task body PROTECTED_ARRAY ls 
TABLE : array(INDEX) of ELEM := (INDEX => 0); 


select 
accept READ (N : in INDEX; V : out ELEM) do 


accept WRITE(N : in INDEX; E 


OTROS LENGUAJES 


procesador (suele ser lo más habitual), o 
en sistemas con múltiples procesadores. 
Esta última posibilidad, la cual abre una 
nueva dimensión en la programación, 
nunca utilizada hasta ahora, tiene una 
serie de dificultades, esenciales a este 
tipo de procesamiento, que los lengua- 
jes como ADA, y en menor medida MO- 
DULA-2, tratan de solventar. 

Para ello, el ADA trata las tareas como 
entidades independientes, pero además 
dispone de los mecanismos adecuados 
para que estas tareas puedan ser coor- 
dinadas adecuadamente y sincroniza- 
das eficientemente. 

La forma de definir una tarea (task) es 
prácticamente la misma que la que se 
utiliza en MODULA-2 para definir un pro- 
cedimiento dentro de un módulo, aun- 
que las palabras clave sean diferentes. 

Veamos un ejemplo: 


: In  ELEM) do 


“0 OTROS LENGUAJES 


Con el propósito de sincronizar las ta- 
reas entre sí, el ADA dispone de senten- 
cias de retardo (delay) y de tipos de va- 
riables temporales (time) basados en el 
tipo básico «duration». 

El ADA también dispone de sentencias 
de espera selectiva, con las cuales se 
pueden hacer varias combinaciones, 
muy útiles para la sincronización. 

Las llamadas condicionales a senten- 
cias son también posibles si éstas están 
disponibles inmediatamente. 

Cada tarea (task) tiene en el ADA un ni- 
vel de prioridad que se define explícita- 
mente en el especificador de la misma. 
Este nivel permite la jerarquización de ta- 
reas. Esto es muy difícil, ya que el ADA 
ofrece numerosas utilidades que podría- 
mos denominar de bajo nivel, como es la 
activación de una tarea mediante una 
interrupción. Al estar jerarquizadas las ta- 
reas, habrá interrupciones que provo- 
quen la ejecución de sus tareas y otras 
que no, ya que al ser de nivel con menor 
prioridad, no podrán interrumpir a las 
que están en ejecución. 

En ADA existen también sentencias de- 
dicadas al tratamiento de las situaciones 
catastróficas, como situaciones de 
«abort», que permiten el tratamiento soft- 
ware de errores de todo tipo, incluso 
hardware. 

También existen las variables solapa- 
das (shared), que son accesibles desde 
dos o más tareas diferentes pero no des- 
de otras. Esto permite el paso de parame- 
tros entre tareas de una forma dinámica. 


La compilación separada está también 
dotada de numerosas utilidades que per- 
miten hacer diferentes tratamientos, con 
cada unidad compilable, como las cláu- 
sulas WITH, en compilación. 


Dentro de las unidades de compilación 
es posible tambien la jerarquización me- 
diante la utilización de subunidades, otro 
conjunto de instrucciones disponible en 
ADA. 


La compilación mediante un orden 
preestablecido (a elegir) y la selección 
detallada de las librerías a utilizar, así 
como de otras utilidades más sofistica- 
das, permiten que el código objeto resul- 
tado de una compilación en ADA pueda 
resultar muy optimizado. 


Por último, diremos que el ADA está es- 
pecialmente diseñado para la manipula- 
ción de todo tipo de excepciones, por lo 
que puede utilizarse como un lenguaje 
para el diseño de sistemas informáticos, 
no sólo de aplicaciones. 


Como resumen, diremos que el lengua- 
je ADA es un lenguaje de los más poten- 
tes, pero tiene el gran defecto de un nú- 
mero muy grande de instrucciones dife- 
rentes, lo que hace que para algunos 
tenga una estructura demasiado compli- 
cada. 


Este lenguaje será pronto operativo en 
sistemas de microordenador, debido so- 
bre todo al rápido incremento en la po- 
tencia de cálculo y en la capacidad de 
memoria que están teniendo últimamen- 
te los ordenadores personales. 


=== y EDICIONES y SIGLO y CULTURAL y — 


